100 SRT=50000:FORK=SRTTOSRT+331:READN:C=C+N:POKEK,N:NEXT
110 IF C<>42632 THEN PRINT"ERROR IN DATA STATEMENTS!":END
120 DIM X$(10),X%(10),X(10)
130 PRINT"[147]PRESS ANY KEY TO SEE STRING SORT"
140 GETA$ : IF A$="" THEN 140
150 PRINT"THE UNSORTED STRINGS ARE:"
160 FOR K=1 TO 10 : READ X$(K) : PRINT TAB(10);X$(K) : NEXT K
170 SYS SRT,X$(1),10
180 PRINT"THE SORTED STRINGS ARE:"
190 FOR K=1 TO 10 : PRINT TAB(10);X$(K) : NEXT K
200 PRINT"PRESS ANY KEY TO SEE INTEGER SORT"
210 GETA$ : IF A$="" THEN 210
220 PRINT"THE UNSORTED INTEGERS ARE:"
230 FOR K=1 TO 10 : READ X%(K) : PRINT TAB(10);X%(K) : NEXT K
240 SYS SRT,X%(1),10
250 PRINT"THE SORTED INTEGERS ARE:"
260 FOR K=1 TO 10 : PRINT TAB(10);X%(K) : NEXT K
270 PRINT"PRESS ANY KEY TO SEE FLOAT NUMBER SORT"
280 GETA$ : IF A$="" THEN 280
290 PRINT"THE UNSORTED FLOAT VALUES ARE:"
300 FOR K=1 TO 10 : READ X(K) : PRINT TAB(10);X(K) : NEXT K
310 SYS SRT,X(1),10
320 PRINT"THE SORTED FLOAT VALUES ARE:"
330 FOR K=1 TO 10 : PRINT TAB(10);X(K) : NEXT K
340 PRINT"PRESS ANY KEY TO SEE OFFSET STRING SORT"
350 GETA$ : IF A$="" THEN 350
360 INPUT"SORT ON WHICH CHARACTER";N
370 PRINT"THE UNSORTED STRINGS ARE:"
380 FOR K=1 TO 10 : READ X$(K) : PRINT TAB(10);X$(K) : NEXT K
390 SYS SRT,X$(1),10,N
400 PRINT"THE SORTED STRINGS ARE:"
410 FOR K=1 TO 10 : PRINT TAB(10);X$(K) : NEXT K
1000 DATA 32,253,174,32,139,176,133,251,132,252,165,13,201,255,240,12,165,14
1010 DATA 208,4,169,5,208,6,169,2,208,2,169,3,133,53,32,121,0,201,44,240,9,162
1020 DATA 11,208,2,162,14,76,55,164,32,131,174,32,170,177,201,128,176,241,132
1030 DATA 25,133,26,165,53,201,3,208,29,169,0,133,20,32,121,0,201,44,208,18,32
1040 DATA 131,174,32,170,177,132,20,133,21,165,21,208,206,132,20,198,20,165,25
1050 DATA 208,5,165,26,208,1,96,165,25,133,7,165,26,133,8,165,251,133,253,165
1060 DATA 252,133,254,165,7,208,2,198,8,198,7,208,29,165,8,208,25,165,25,208,2
1070 DATA 198,26,198,25,24,165,251,101,53,133,251,165,252,105,0,133,252,169,1
1080 DATA 208,192,24,165,253,101,53,133,253,165,254,105,0,133,254,160,0,165,53
1090 DATA 201,5,208,2,240,83,201,2,208,2,240,108,177,251,133,27,209,253,144,4
1100 DATA 177,253,133,27,197,20,144,186,56,229,20,133,27,200,177,251,133,29
1110 DATA 177,253,133,31,200,177,251,133,30,177,253,133,32,164,20,177,29,209
1120 DATA 31,144,7,176,9,200,198,27,208,243,169,0,240,130,160,0,177,251,72,177
1130 DATA 253,145,251,104,145,253,200,196,53,144,241,176,233,165,251,164,252
1140 DATA 32,162,187,32,15,188,165,253,164,254,32,162,187,169,4,133,18,24,32
1150 DATA 22,176,165,98,240,208,208,202,200,177,251,133,2,136,177,251,164,2,32
1160 DATA 145,179,32,15,188,200,177,253,133,2,136,177,253,164,2,32,145,179,169
1170 DATA 1,208,209,32
2000 DATA HORSE,ZEBRA,GORILLA,CAT,AARDVARK,QUAIL,SNAKE,COW,DOG,HIPPOPOTAMUS
2010 DATA 123, 789, 456, 0, -2345, 999, 6, 12345, -1,1
2020 DATA 1.23, 78.9, 2.13E15, -46.443, 0, 12, -55E-12, 66.5, -66.5, 213
2030 DATA HORSE,ZEBRA,GORILLA,CAT,AARDVARK,QUAIL,SNAKE,COW,DOG,HIPPOPOTAMUS